Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/Science/Chemistry/Titrate/card_3032.txt

Text File | 1991-11-23 | 4.9 KB | 308 lines

-- card: 3032 from stack: in
-- bmap block id: 3532
-- flags: 0000
-- background id: 2767
-- name: start
----- HyperTalk script -----
on opencard

end opencard



-- part 11 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=204 top=58 right=96 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button


-- part 12 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=271 top=297 right=315 bottom=327
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: loc


-- part 16 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=407 top=321 right=339 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Problem
----- HyperTalk script -----
on mouseUp
  global count

  global ans
  global result
  put random of 290 into count
  put count + 100 into count
  --put count into card field loc
  put count/18 into ans
  --put ans into card field "ans"
  show card field "start"


end mouseUp



-- part 17 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=273 top=296 right=314 bottom=329
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: loc1


-- part 18 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=290 top=318 right=334 bottom=331
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ans


-- part 19 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=250 top=290 right=334 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 18
-- style flags: 256
-- line height: 24
-- part name: correct


-- part 21 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=252 top=302 right=334 bottom=346
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Instructions
----- HyperTalk script -----
on mouseUp
  push card
  go to card "instructions"
end mouseUp



-- part 22 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=70 top=290 right=306 bottom=169
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: conc


-- part 24 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=460 top=21 right=49 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mouseUp
  go to card 1
end mouseUp



-- part 25 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=4 top=4 right=342 bottom=242
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: start
----- HyperTalk script -----
on mouseup
  global a
  send mouseup to bkgnd button "reset"
  put the seconds into a
  hide card field start
end mouseup


-- part 26 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=248 top=20 right=50 bottom=282
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  global ans
  global a
  global count
  ask "What value for correct answer?(<40)"
  put it into holder
  if holder < 0 then put holder * -1 into hloder
  if holder < 40 then
    put holder * 18 into count
    put holder into ans
    put the seconds into a
    go to card start
    show card field start
  else
  end if
end mouseUp



-- part contents for card part 12
----- text -----
326

-- part contents for background part 7
----- text -----
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50


-- part contents for card part 17
----- text -----
21

-- part contents for card part 18
----- text -----
18.111111

-- part contents for card part 22
----- text -----
0.10 M HCl

-- part contents for card part 19
----- text -----


correct!

score
1591

-- part contents for card part 25
----- text -----



Click Here to Start


Clock will start
running.